for (i in 1:nrow(horizonte)){
  print(horizonte$profilnummer[i])
result <- schluff_oe(portions=c(horizonte$T[i],horizonte$U[i],horizonte$fS[i], horizonte$SohnefS[i]),breaks=c(0.002,0.05,0.1,2))
horizonte$textur[i] <- textur_oe(t=result[1],u=result[2])
horizonte$ton[i] <- result[1]
horizonte$schluff[i] <- result[2]
horizonte$sand[i]<- result[3]
}
## [1] 1

## [1] 1

## [1] 1

## [1] 1

## [1] 2

## [1] 2

## [1] 2

## [1] 2

## [1] 3

## [1] 3

## [1] 3

## [1] 3

## [1] 3

## [1] 4

## [1] 4

## [1] 4

## [1] 4

## [1] 5

## [1] 5

## [1] 5

## [1] 5
## [1] 6

## [1] 6

## [1] 6

## [1] 6

## [1] 7

## [1] 7

## [1] 7

## [1] 7

## [1] 7

## [1] 8
## [1] 8

## [1] 8

## [1] 8

## [1] 9

## [1] 9

## [1] 9

## [1] 10

## [1] 10

## [1] 10

## [1] 11

## [1] 11

## [1] 12

## [1] 12

## [1] 13

## [1] 13

## [1] 13

## [1] 13

## [1] 14

## [1] 14

## [1] 14

## [1] 14

## [1] 14

## [1] 15

## [1] 15

## [1] 15

## [1] 15

## [1] 15

## [1] 16

## [1] 16

## [1] 16

## [1] 17

## [1] 17

## [1] 17

## [1] 17

## [1] 17

## [1] 18

## [1] 18

## [1] 18

## [1] 18

## [1] 18

## [1] 18

## [1] 18

## [1] 19

## [1] 19

## [1] 19

## [1] 19

## [1] 20

## [1] 20

## [1] 20

## [1] 20

## [1] 21

## [1] 21

## [1] 21

## [1] 21

## [1] 22

## [1] 22

## [1] 22

## [1] 22

## [1] 23

## [1] 23

## [1] 23

## [1] 23

## [1] 23

## [1] 23

## [1] 24

## [1] 24

## [1] 24

## [1] 24

## [1] 25

## [1] 25

## [1] 25

## [1] 25

## [1] 25

## [1] 26

## [1] 26

## [1] 26

## [1] 26

## [1] 27

## [1] 27

## [1] 27

## [1] 27

## [1] 28

## [1] 28

## [1] 28

## [1] 28

## [1] 28

## [1] 29

## [1] 29

## [1] 29

## [1] 29

## [1] 30

## [1] 30

## [1] 30

## [1] 30

## [1] 31

## [1] 31

## [1] 31

## [1] 32

## [1] 32

## [1] 32

## [1] 32

## [1] 32

## [1] 33

## [1] 33

## [1] 33

## [1] 33

## [1] 33

## [1] 33

## [1] 34

## [1] 34

## [1] 34

## [1] 34

## [1] 35

## [1] 35

## [1] 35

## [1] 35

## [1] 35

## [1] 36

## [1] 36

## [1] 37

## [1] 37

## [1] 37

## [1] 37

## [1] 38

## [1] 38

## [1] 38

## [1] 38

## [1] 39

## [1] 39

## [1] 39

## [1] 40

## [1] 40

## [1] 40

## [1] 40

## [1] 40

## [1] 41

## [1] 41

## [1] 41

## [1] 41

## [1] 41

## [1] 42

## [1] 42

## [1] 42

## [1] 42

## [1] 43

## [1] 43

## [1] 43

## [1] 44

## [1] 44

## [1] 44

## [1] 45

## [1] 45

## [1] 45

## [1] 45

## [1] 46

## [1] 46

## [1] 46

## [1] 47

## [1] 47

## [1] 47

## [1] 47

## [1] 48

## [1] 48

## [1] 48

## [1] 49

## [1] 49

## [1] 49

## [1] 49

## [1] 50

## [1] 50

## [1] 50

## [1] 51

## [1] 51

## [1] 51

## [1] 51

## [1] 51

## [1] 52

## [1] 52

## [1] 52

## [1] 53

## [1] 53

## [1] 54

## [1] 54

## [1] 54

## [1] 55

## [1] 55

## [1] 55

## [1] 56

## [1] 56

## [1] 57

## [1] 57

## [1] 58

## [1] 58

## [1] 58

## [1] 59

## [1] 59

## [1] 59